Cream of the Crop 22

home *** CD-ROM | disk | FTP | other *** search

/ Cream of the Crop 22 / Cream of the Crop 22.iso / games / mutnt121.zip / MUTEDIT.WCX (.txt) < prev next >

Wrap

Wildcat! WCX | 1996-06-17 | 32KB | 2,037 lines

'! Decompiled with wccNosy version 4.20f (freeware) '! Input File: in.wcx 31583 bytes 11/17/122 02:22:48am '! Code Segment Size :20657 bytes '! Data Segment Size :6016 bytes '! String Segment Size:10926 bytes '! Compiled with WCC version ? 019C017B Type Type29 i0 As Integer i2 As Integer i4 As Integer i6 As Integer End Type Type Type28 s0 As String*30 s30 As String*18 s48 As String*3 l51 As Long s55 As String*1 i56 As Integer i58 As Integer i60 As Integer Filler62(1 To 32) As Byte i94 As Integer i96 As Integer l98 As Long l102 As Long b106 As Byte i107 As Integer b109 As Byte s110 As String*15 b125 As Byte b126 As Byte b127 As Byte b128 As Byte s129 As String*1 s130 As String*20 s150 As String*20 s170 As String*20 b190 As Byte s191 As String*30 b221 As Byte b222 As Byte b223 As Byte b224 As Byte b225 As Byte b226 As Byte b227 As Byte b228 As Byte b229 As Byte b230 As Byte b231 As Byte b232 As Byte s233 As String*1 b234 As Byte o235 As Boolean Filler236(1 To 1) As Byte b237 As Byte b238 As Byte b239 As Byte Filler240(1 To 1) As Byte o241 As Boolean o242 As Boolean b243 As Byte b244 As Byte b245 As Byte o246 As Boolean b247 As Byte b248 As Byte b249 As Byte b250 As Byte Filler251(1 To 2) As Byte o253 As Boolean Filler254(1 To 1) As Byte o255 As Boolean b256 As Byte b257 As Byte b258 As Byte b259 As Byte Filler260(1 To 46) As Byte b306 As Byte Filler307(1 To 3) As Byte t29_310 As Type29 End Type Type Type27 Filler0(1 To 30) As Byte s30 As String*18 Filler48(1 To 142) As Byte b190 As Byte s191 As String*30 Filler221(1 To 25) As Byte b246 As Byte End Type Type Type26 b0 As Byte s1 As String*20 s21 As String*8 s29 As String*18 s47 As String*18 s65 As String*18 s83 As String*18 Filler101(1 To 18) As Byte l119 As Long Filler123(1 To 20) As Byte i143(1 To 10) As Integer End Type '! Declare Sub Sub2128 Declare Sub Sub2288 Declare Sub Sub2492 Declare Sub Sub2616 Declare Sub Sub12922 Declare Sub Sub13011 Declare Sub Sub19441 Declare Sub Sub19500 Declare Sub Sub19818 Declare Sub Sub20010 Declare Function Func20089(s65534 As String) As String Declare Function Func20409(s65534 As String, s65532 As String) As Boolean Declare Sub Sub20543 Declare Sub Sub20600 Dim s4463 As String*4 Dim i4467 As Integer Dim s4469 As String Dim s4473 As String Dim s4477 As String Dim s4481 As String Dim s4485 As String Dim s4489 As String Dim s4493 As String Dim s4497 As String Dim s4501 As String Dim s4505 As String Dim s4509 As String Dim s4513 As String Dim s4517 As String Dim s4521 As String Dim t28_4525 As Type28 Dim t27_4871 As Type27 Dim t26_5398 As Type26 Dim s5791 As String Dim s5795 As String Dim b5799 As Byte Dim b5800 As Byte Dim i5801 As Integer Dim b5803 As Byte Dim s5804 As String Dim s5808 As String Dim b5812 As Byte Dim o5813 As Boolean Dim s5814 As String*25 Dim s5839 As String*18 Dim s5857 As String*1 Dim i5858 As Integer Dim i5860 As Integer Dim s5862 As String Dim b5866 As Byte Dim b5867 As Byte Dim b5882 As Byte Dim s5884 As String Dim s5888 As String Dim s5892 As String Dim s5896 As String Dim b5901 As Byte Dim s5902 As String Dim b5906 As Byte Dim b5907 As Byte Dim i5908 As Integer Dim i5910 As Integer Dim i5912 As Integer Dim s5914 As String Dim s5918 As String Dim s5992 As String Dim s5996 As String Dim i6000 As Integer Dim b6002 As Byte Dim b6003 As Byte Dim s6004 As String*1 Dim s6005 As String*1 Dim b6006 As Byte Dim b6007 As Byte Dim b6008 As Byte Dim b6009 As Byte Dim b6010 As Byte Dim s6011 As String Dim o6015 As Boolean i4467 = Int(Rnd(1) * 2) If i4467 = 0 Then s4463 = "@02@" Else 94 s4463 = "@05@" End If 105 s4469 = s4463 + "MUTANTS@07@ - v1.2" s4473 = "@07@(C) Copyright 1996 @0F@S@09@apphire @0F@S@09@oftware" s4477 = s4463 + "Author:@07@ Scott J. Bradbury" s4481 = "@07@Released on June 15, 1996" s4485 = "Support BBS: " + s4463 + "The Coral Reef@07@ ■ (517) 894-0729" s4489 = ProgPath + "\disp\" s4493 = ProgPath + "\mail\" s4497 = ProgPath + "\scores\" s5892 = Tab(5) s5896 = Tab(10) Sub19500 If UCase(User.Name) = UCase(MakeWild.SysopName) Then b5882 = - 1 Else 296 If UCase(User.Name) = "SCOTT BRADBURY" Then b5882 = - 1 Else 337 If UCase(User.Name) = UCase(s5808) Then b5882 = - 1 Else 380 b5882 = 0 Open ProgPath + "error.log" For Append As 7 Print #7, UCase(User.Name) + " tried to use the Mutants Editor." Close 7 Cls Print Print "@0C@Security Error" Print Print "@07@You do not have access to this utility." Print "Your attempt to enter has been recorded." Delay 4 End End If End If End If 484 b6002 = Len(MakeWild.SysopName) b6008 = InStr(1, MakeWild.SysopName, " ") s6011 = Left(MakeWild.SysopName, b6008 - 1) b6003 = Len(s6011) s6004 = UCase(Left(MakeWild.SysopName, 1)) s6005 = UCase(Mid(MakeWild.SysopName, 2, 1)) If s6004 = "S" Or s6004 = "T" Then b6009 = 7 Else 662 If s6004 = "U" Or s6004 = "V" Then b6009 = 8 Else 709 If s6004 = "W" Or s6004 = "X" Then b6009 = 9 Else 756 If s6004 = "Y" Or s6004 = "Z" Then b6009 = 10 Else 803 If s6004 = "A" Or s6004 = "B" Then b6009 = 11 Else 850 If s6004 = "C" Or s6004 = "D" Then b6009 = 12 Else 897 If s6004 = "E" Or s6004 = "F" Then b6009 = 13 Else 944 If s6004 = "G" Or s6004 = "H" Then b6009 = 14 Else 991 If s6004 = "H" Or s6004 = "I" Then b6009 = 1 Else 1038 If s6004 = "J" Or s6004 = "K" Then b6009 = 2 Else 1085 If s6004 = "L" Or s6004 = "M" Then b6009 = 3 Else 1132 If s6004 = "N" Or s6004 = "O" Then b6009 = 4 Else 1179 If s6004 = "P" Or s6004 = "Q" Then b6009 = 5 Else 1226 If s6004 = "R" Then b6009 = 6 End If End If End If End If End If End If End If End If End If End If End If End If End If End If 1252 If s6005 = "S" Or s6005 = "T" Then b6010 = 14 Else 1299 If s6005 = "U" Or s6005 = "V" Then b6010 = 13 Else 1346 If s6005 = "W" Or s6005 = "X" Then b6010 = 12 Else 1393 If s6005 = "Y" Or s6005 = "Z" Then b6010 = 11 Else 1440 If s6005 = "A" Or s6005 = "B" Then b6010 = 10 Else 1487 If s6005 = "C" Or s6005 = "D" Then b6010 = 9 Else 1534 If s6005 = "E" Or s6005 = "F" Then b6010 = 8 Else 1581 If s6005 = "G" Or s6005 = "H" Then b6010 = 7 Else 1628 If s6005 = "H" Or s6005 = "I" Then b6010 = 6 Else 1675 If s6005 = "J" Or s6005 = "K" Then b6010 = 5 Else 1722 If s6005 = "L" Or s6005 = "M" Then b6010 = 4 Else 1769 If s6005 = "N" Or s6005 = "O" Then b6010 = 3 Else 1816 If s6005 = "P" Or s6005 = "Q" Then b6010 = 2 Else 1863 If s6005 = "R" Then b6010 = 1 End If End If End If End If End If End If End If End If End If End If End If End If End If End If 1889 b6006 = b6002 + b6003 b6007 = b6003 + b6009 + 12 s5791 = Str(b6006) + Str(b6009) + Str(b6002) + Str(b6007) + Str(b6010) + Str(b6003) MorePrompt(0) Sub2616 '! Called 0 times '! Sub Sub2128 '! Open ProgPath + "mutants.cfg" For Input As 2 '! Input #2, s5795 '! Input #2, b5799 '! Input #2, b5800 '! Input #2, i5801 '! Input #2, b5803 '! Input #2, s5804 '! Input #2, s5808 '! Input #2, b5812 '! Input #2, s4497 '! Input #2, s4501 '! Input #2, s4505 '! Input #2, s4509 '! Input #2, s4513 '! Input #2, s4517 '! Input #2, s4521 '! Input #2, o5813 '! Close 2 '! End Sub '! Called 1 time Sub Sub2288 If Exists(ProgPath + "gameinfo.cfg") = 0 Then s5814 = "New Futura City" s5839 = "Xaviana Magnaflux" s5857 = "F" i5858 = 0 i5860 = 0 s5862 = "Mild" b5866 = 4 b5867 = 25 Else 2393 Open ProgPath + "gameinfo.cfg" For Input As 1 Input #1, s5814 Input #1, s5839 Input #1, s5857 Input #1, i5858 Input #1, i5860 Input #1, s5862 Input #1, b5866 Input #1, b5867 Close 1 End If 2489 End Sub '! Called 2 times Sub Sub2492 Open ProgPath + "gameinfo.cfg" For Output As 1 Print #1, s5814 Print #1, s5839 Print #1, s5857 Print #1, i5858 Print #1, i5860 Print #1, s5862 Print #1, b5866 Print #1, b5867 Close 1 End Sub '! Called 1 time Sub Sub2616 Dim l65446 As Long Dim i65450 As Integer Dim l65452 As Long Dim i65456 As Integer Dim l65458 As Long Dim i65462 As Integer Dim l65464 As Long Dim i65468 As Integer Dim l65470 As Long Dim i65474 As Integer Dim l65476 As Long Dim i65480 As Integer Dim l65482 As Long Dim i65486 As Integer Dim l65488 As Long Dim i65492 As Integer Dim l65494 As Long Dim i65498 As Integer Dim l65500 As Long Dim i65504 As Integer Dim l65506 As Long Dim i65510 As Integer Dim s65512 As String Dim s65516 As String Dim s65520 As String Dim s65524 As String Dim s65528 As String Dim s65532 As String Do 2625 If s5795 = s5791 Then o6015 = - 1 Else 2656 If s5795 <> s5791 Then o6015 = 0 End If End If 2678 Cls Print s5892; "@0D@"; s4469 Print s5892; "@0F@Configuration Setup and Player Editor@07@" Print Print Print s5896; "[@0F@I@07@]nstall (First Time Setup)" Print s5896; "[@0F@C@07@]onfiguration" Print s5896; "[@0F@P@07@]layer Editor" Print s5896; "[@0F@T@07@]eam Editor" Print s5896; "[@0F@O@07@]nline Player Reset" Print s5896; "[@0F@R@07@]eset Entire Game" Print s5896; "[@0F@F@07@]ile Conversion" Print s5896; "[@0F@Q@07@]uit" Print Print Print s5892; "@07@Option ->@0F@ "; Do 2860 s5884 = UCase(InKey(1213417543)) Loop Until InStr("ICPTORFQ", s5884) > 0 Print s5884 Delay 0.1 Print s65532 = UCase(s5884) If s65532 = "F" Then Cls Print Print s5892; "This option is to upgrade existing game files to a new format" Print s5892; "during upgrades. Run this process ONLY when the you are instructed" Print s5892; "to do so from the UPGRADE.DOC file. It is to be run only once." Print Print Print s5892; "@0F@1. @07@Team File Upgrade" Print s5892; "@0F@Q. @07@Quit" Print Print Print s5892; "] "; Do 3045 s5884 = UCase(InKey(1213417543)) Loop Until InStr("1Q", s5884) > 0 Print s5884 Print s65528 = s5884 If s65528 = "1" Then Print Print s5892; "@0C@ARE YOU SURE? "; Do 3133 s5884 = UCase(InKey(1213417543)) Loop Until InStr("YN", s5884) > 0 If s5884 = "Y" Then Run ProgPath + "teamcnvt", "" Name ProgPath + "teamfile.dat" As ProgPath + "teamfile.old" Name ProgPath + "teamfile.new" As ProgPath + "teamfile.dat" Print Print Print s5892; "@0F@Upgrade process completed." Delay 2 Print Print s5892; "Your old team file has been renamed to TEAMFILE.OLD in case" Print s5892; "the conversion did not end normally." End If 3309 Else 3315 If s65528 = "Q" Then GoTo 3338 End If End If 3338 Else 3344 If s65532 = "R" Then Cls Print Print Print s5892; "@8C@WARNING!" Print Print s5892; "@0F@THIS OPTION WILL START YOUR ENTIRE GAME OVER FROM SCRATCH!" Print s5892; "@07@All players will be deleted and files initialized to begin" Print s5892; "a new game. Do not use this command while someone is in the game." Print Print Print s5892; "Proceed with @0F@RESET@07@? [@0F@Y@07@/@0F@N@07@]@0F@ "; Do 3449 s5884 = UCase(InKey(1213417543)) Loop Until InStr("YN", s5884) > 0 Print s5884 Delay 0.1 If s5884 = "Y" Then Kill ProgPath + "players.dat" Kill ProgPath + "teamfile.dat" Kill ProgPath + "gameinfo.cfg" Kill ProgPath + "sysop.log" Kill ProgPath + "today.log" Kill ProgPath + "yesterdy.log" Kill ProgPath + "oldnews.log" Kill ProgPath + "gametrak.txt" 3643 For i5908 = 1 To 100 Step 1 Kill ProgPath + "hqmsg." + Str(i5908) Kill s4493 + "meet." + Str(i5908) Kill s4493 + "bank." + Str(i5908) Kill s4493 + "urgent." + Str(i5908) Kill s4493 + "online." + Str(i5908) Next 3835 b5906 = 0 3862 For i5908 = 1 To 100 Step 1 Kill s4493 + "mail" + Str(i5908) + "." + Str(b5906) Kill s4493 + "talk" + Str(i5908) + "." + Str(b5906) Kill s4493 + "reply" + Str(i5908) + "." + Str(b5906) Inc b5906 Next 4064 Kill s4497 + s4501 Kill s4497 + s4505 Kill s4497 + s4509 Kill s4497 + s4513 Kill s4497 + s4517 Kill s4497 + s4521 Print Print s5892; "@07@You will now want to check your configuration options to" Print s5892; "make sure all is set the way you want it." Sub20010 End If 4180 Else 4186 If s65532 = "P" Then If o6015 = - 1 Then Sub13011 Else 4232 If o6015 = 0 Then Print Print s5892; "The Player Editor is not available in the unregistered version." Sub20010 GoTo 12895 End If End If 4275 If Exists(ProgPath + "players.dat") = -1 Then Sub13011 Else 4311 Print Print Print s5892; "No players are active yet." Sub20010 GoTo 12895 End If 4342 Else 4348 If s65532 = "T" Then Print Print s5892; "@07@The Team Editor will be available in a future release." Sub20010 End b5907 = 1 Do 4396 If o6015 = 0 Then Print Print s5892; "The Team Editor is not available in the unregistered version." Sub20010 GoTo 8765 End If 4439 Cls Print If Exists(ProgPath + "teamfile.dat") = -1 Then Sub20543 Else 4480 Print Print Print s5892; "No teams have been created yet." Sub20010 GoTo 8765 End If 4511 Print s5892; "@07@ Team ID # :@0F@ "; t26_5398.b0 Print s5892; "@0D@1.@07@ Name of Team :@0F@ "; t26_5398.s1 Print s5892; "@0D@2.@07@ Team Password :@0F@ "; t26_5398.s21 Print s5892; "@0D@3.@07@ Leader :@0F@ "; t26_5398.s29 Print s5892; "@0D@4.@07@ Member :@0F@ "; t26_5398.s47 Print s5892; "@0D@5.@07@ Member :@0F@ "; t26_5398.s65 Print s5892; "@0D@6.@07@ Member :@0F@ "; t26_5398.s83 Print s5892; "@0D@7.@07@ Bank Account :@0F@ "; t26_5398.l119 Print s5892; "@0D@8.@07@ Medical Kit I :@0F@ "; t26_5398.i143(1) Print s5892; "@0D@9.@07@ Medical Kit II:@0F@ "; t26_5398.i143(6) Print s5892; "@0D@A.@07@ P-Detonators :@0F@ "; t26_5398.i143(2) Print s5892; "@0D@B.@07@ Nitro Packs :@0F@ "; t26_5398.i143(3) Print s5892; "@0D@C.@07@ Rocks :@0F@ "; t26_5398.i143(4) Print s5892; "@0D@D.@07@ Control Cards :@0F@ "; t26_5398.i143(5) Print Print s5892; "@07@[@0D@N@07@]ext Team @07@[@0D@L@07@]eave Team Editor" Print s5892; ">@0F@ "; Do 5065 s5884 = UCase(InKey(1213417543)) Loop Until InStr("123456789ABCDLN", s5884) > 0 Print s5884 Delay 0.1 Print s65524 = s5884 If s65524 = "1" Then s5992 = t26_5398.s1 Print s5892; "Enter new team name: "; Input t26_5398.s1 If t26_5398.s1 = "" Then t26_5398.s1 = s5992 End If 5222 Sub20600 Else 5234 If s65524 = "2" Then s5992 = t26_5398.s21 Print s5892; "Enter new password: "; Input t26_5398.s21 If t26_5398.s21 = "" Then t26_5398.s21 = s5992 End If 5329 Sub20600 Else 5341 If s65524 = "3" Then Print s5892; "Name of Team Leader: "; Input s5996 Open ProgPath + "players.dat" For Random As 4 Len = 346 '! This value should probably be replaced with a "SizeOf" expression 5429 For i5908 = 1 To LOF(4) Step 1 Get 4, i5908, t27_4871 '! 346 bytes If UCase(s5996) = UCase(t27_4871.s30) Then s5992 = t26_5398.s29 t26_5398.s29 = s5996 t27_4871.b190 = b5907 t27_4871.s191 = t26_5398.s1 Put 4, i5908, t27_4871 '! 346 bytes 5625 For i6000 = 1 To LOF(4) Step 1 Get 4, i6000, t28_4525 '! 346 bytes If UCase(s5992) = UCase(t28_4525.s30) Then t28_4525.b190 = 0 t28_4525.s191 = "No Team" Put 4, i6000, t28_4525 '! 346 bytes End If 5760 Next 5783 GoTo 5909 Else 5795 If UCase(s5996) <> UCase(t27_4871.s30) And EOF(4) Then t26_5398.s29 = "No Member" t27_4871.b190 = 0 t27_4871.s191 = "No Team" Put 4, i5908, t27_4871 '! 346 bytes End If End If 5886 Next 5909 Close 4 Sub20600 Else 5926 If s65524 = "4" Then Print s5892; "Type FULL name of member: "; Input s5996 Open ProgPath + "players.dat" For Random As 4 Len = 346 '! This value should probably be replaced with a "SizeOf" expression 6014 For i5908 = 1 To LOF(4) Step 1 Get 4, i5908, t27_4871 '! 346 bytes If UCase(s5996) = UCase(t27_4871.s30) Then s5992 = t26_5398.s47 t26_5398.s47 = s5996 t27_4871.b190 = b5907 t27_4871.s191 = t26_5398.s1 Put 4, i5908, t27_4871 '! 346 bytes 6210 For i6000 = 1 To LOF(4) Step 1 Get 4, i6000, t28_4525 '! 346 bytes If UCase(s5992) = UCase(t28_4525.s30) Then t28_4525.b190 = 0 t28_4525.s191 = "No Team" Put 4, i6000, t28_4525 '! 346 bytes End If 6345 Next 6368 GoTo 6397 End If 6374 Next 6397 If UCase(s5996) <> UCase(t27_4871.s30) Then t26_5398.s47 = "No Member" t27_4871.b190 = 0 t27_4871.s191 = "No Team" Put 4, i5908, t27_4871 '! 346 bytes End If 6481 Close 4 Sub20600 Else 6498 If s65524 = "5" Then Print s5892; "Type FULL name of member: "; Input s5996 Open ProgPath + "players.dat" For Random As 4 Len = 346 '! This value should probably be replaced with a "SizeOf" expression 6586 For i5908 = 1 To LOF(4) Step 1 Get 4, i5908, t27_4871 '! 346 bytes If UCase(s5996) = UCase(t27_4871.s30) Then s5992 = t26_5398.s65 t26_5398.s65 = s5996 t27_4871.b190 = b5907 t27_4871.s191 = t26_5398.s1 Put 4, i5908, t27_4871 '! 346 bytes 6782 For i6000 = 1 To LOF(4) Step 1 Get 4, i6000, t28_4525 '! 346 bytes If UCase(s5992) = UCase(t28_4525.s30) Then t28_4525.b190 = 0 t28_4525.s191 = "No Team" Put 4, i6000, t28_4525 '! 346 bytes End If 6917 Next 6940 GoTo 7066 Else 6952 If UCase(s5996) <> UCase(t27_4871.s30) And EOF(4) Then t26_5398.s65 = "No Member" t27_4871.b190 = 0 t27_4871.s191 = "No Team" Put 4, i5908, t27_4871 '! 346 bytes End If End If 7043 Next 7066 Close 4 Sub20600 Else 7083 If s65524 = "6" Then Print s5892; "Type FULL name of member: "; Input s5996 Open ProgPath + "players.dat" For Random As 4 Len = 346 '! This value should probably be replaced with a "SizeOf" expression 7171 For i5908 = 1 To LOF(4) Step 1 Get 4, i5908, t27_4871 '! 346 bytes If UCase(s5996) = UCase(t27_4871.s30) Then s5992 = t26_5398.s83 t26_5398.s83 = s5996 t27_4871.b190 = b5907 t27_4871.s191 = t26_5398.s1 Put 4, i5908, t27_4871 '! 346 bytes 7367 For i6000 = 1 To LOF(4) Step 1 Get 4, i6000, t28_4525 '! 346 bytes If UCase(s5992) = UCase(t28_4525.s30) Then t28_4525.b190 = 0 t28_4525.s191 = "No Team" Put 4, i6000, t28_4525 '! 346 bytes End If 7502 Next 7525 GoTo 7651 Else 7537 If UCase(s5996) <> UCase(t27_4871.s30) And EOF(4) Then t26_5398.s83 = "No Member" t27_4871.b190 = 0 t27_4871.s191 = "No Team" Put 4, i5908, t27_4871 '! 346 bytes End If End If 7628 Next 7651 Close 4 Sub20600 Else 7668 If s65524 = "7" Then Print s5892; "Enter amount in team bank account: "; Input t26_5398.l119 Sub20600 Else 7723 If s65524 = "8" Then Print s5892; "Number of Medical Kits I in Inventory: "; Input t26_5398.i143(1) If t26_5398.i143(1) > 32000 Then t26_5398.i143(1) = 0 End If 7874 Sub20600 Else 7886 If s65524 = "9" Then Print s5892; "Number of Medical Kits II in Inventory: "; Input t26_5398.i143(6) If t26_5398.i143(6) > 32000 Then t26_5398.i143(6) = 0 End If 8037 Sub20600 Else 8049 If s65524 = "A" Then Print s5892; "Number of Proton Detonators in Inventory: "; Input t26_5398.i143(2) If t26_5398.i143(2) > 32000 Then t26_5398.i143(2) = 0 End If 8200 Sub20600 Else 8212 If s65524 = "B" Then Print s5892; "Number of Nitro Packs in Inventory: "; Input t26_5398.i143(3) If t26_5398.i143(3) > 32000 Then t26_5398.i143(3) = 0 End If 8363 Sub20600 Else 8375 If s65524 = "C" Then Print s5892; "Number of Rocks in Inventory: "; Input t26_5398.i143(4) If t26_5398.i143(4) > 32000 Then t26_5398.i143(4) = 0 End If 8526 Sub20600 Else 8538 If s65524 = "D" Then Print s5892; "Number of Control Cards in Inventory: "; Input t26_5398.i143(5) If t26_5398.i143(5) > 32000 Then t26_5398.i143(5) = 0 End If 8689 Sub20600 Else 8701 If s65524 = "N" Then Inc b5907 Else 8730 If s65524 = "L" Then GoTo 8765 GoTo 8759 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If 8759 Loop 8765 Else 8771 If s65532 = "C" Then Sub2288 Sub19500 Do 8800 MorePrompt(0) Cls Print s5892; "@0F@Configuration Options" Print Print s5892; "@07@1. Enter Registration Number: @05@"; s5795 Print s5892; "@07@2. Max # of Street Fights: @05@"; b5799 Print s5892; "@07@3. Max # of Player Fights: @05@"; b5800 Print s5892; "@07@4. Max Amount to Transfer: @05@"; i5801 Print s5892; "@07@5. Length of Game in Days: @05@"; i5860 Print s5892; "@07@6. Name of Caller who Registered Game: @05@"; s5804 Print s5892; "@07@7. Current Weather Condition: @05@"; s5862 Print s5892; "@07@8. Maximum # of Teams: @05@"; b5803 Print s5892; "@07@9. Rooms available in Zorak's Hotel: @05@"; b5867 Print s5892; "@07@A. Days to wait before deleting inactive players: @05@"; b5812 Print s5892; "@07@B. Name of City: @05@"; s5814 Print s5892; "@07@C. City Ruler's Name: @05@"; s5839 Print s5892; "@07@D. Scores Setup" Print s5892; "@07@E. Game Editor Sysop: @05@"; s5808 If o5813 = 0 Then Print s5892; "@07@F. Clean Mode is @0C@OFF" Else 9159 Print s5892; "@07@F. Clean Mode is @0A@ON" End If 9174 Print s5892; "@07@Q. Quit Configuration" Print Print s5892; "@07@Number Players: @05@"; i5858 Print Print s5892; "@07@>@05@ "; Do 9230 s5884 = UCase(InKey(1213417543)) Loop Until InStr("123456789ABCDEFQ", s5884) > 0 Print s5884 Delay 0.1 Print Print s65520 = s5884 If s65520 = "1" Then s5902 = s5795 Print "@07@Enter your registration code:@05@ "; Input s5795 If s5795 = "" Then s5795 = s5902 End If 9359 Else 9365 If s65520 = "2" Then Print "@07@Maximum Number of Street Fights per Day:@05@ "; Input b5799 Else 9404 If s65520 = "3" Then Print "@07@Maximum Number of Player Fights per Day:@05@ "; Input b5800 Else 9443 If s65520 = "4" Then Print "@07@Maximum of Credits for Team Members to Transfer:@05@ "; Input i5801 Else 9482 If s65520 = "5" Then Print "@07@How long has the current game been running? "; Input i5860 Else 9521 If s65520 = "6" Then Print "@07@Name of person who registered game: "; Input s5804 If s5804 = "" Then s5804 = "Scott Bradbury" End If 9579 Else 9585 If s65520 = "7" Then Print "@07@0. Extremely Cold" Print "@07@1. Cold" Print "@07@2. Cool and Mild" Print "@07@3. Windy" Print "@07@4. Rain and Thunderstorms" Print "@07@5. Mild" Print "@07@6. Sunny & Clear" Print "@07@7. Hot" Print "@07@8. Hot and Humid" Print "@0F@P@07@revious Menu" Do 9692 s5884 = UCase(InKey(1213417543)) Loop Until InStr("012345678P", s5884) > 0 s65516 = s5884 If s65516 = "P" Then Else 9759 If s65516 = "0" Then GoTo 9912 If s65516 = "1" Then GoTo 9912 If s65516 = "2" Then GoTo 9912 If s65516 = "3" Then GoTo 9912 If s65516 = "4" Then GoTo 9912 If s65516 = "5" Then GoTo 9912 If s65516 = "6" Then GoTo 9912 If s65516 = "7" Then GoTo 9912 If s65516 = "8" Then 9912 Func20089(s5884) b5866 = Val(s5884) GoTo 9940 End If End If 9940 Else 9946 If s65520 = "8" Then Print "@07@Maximum Number of Teams to Allow:@05@ "; Input b5803 Else 9985 If s65520 = "9" Then Print "@07@Rooms vacant in Zorak's Hotel [Max 25]:@05@ "; Input b5867 If b5867 > 25 Then b5867 = 25 Else 10046 If Str(b5867) = "" Then b5867 = 25 End If End If 10074 Else 10080 If s65520 = "A" Then Print "@07@Delete players after how many days inactivity? "; Input b5812 If Str(b5812) = "" Then b5812 = 15 End If 10141 Else 10147 If s65520 = "B" Then Print "@07@Name of City: "; Input s5814 If s5814 = "" Then s5814 = "New Futura City" End If 10211 Else 10217 If s65520 = "C" Then Print "@07@Name of City Ruler: "; Input s5839 If s5839 = "" Then s5839 = "Xaviana Magnaflux" End If 10281 Print "@07@Gender (M/F): "; Input s5857 If s5857 = "" Then s5857 = "F" End If 10328 Else 10334 If s65520 = "D" Then Do 10351 Cls Print If s4497 = "" Then s4497 = ProgPath + "SCORES\" End If 10387 If s4501 = "" Then s4501 = "ROSTER.BBS" End If 10413 If s4505 = "" Then s4505 = "EXPERT.BBS" End If 10439 If s4509 = "" Then s4509 = "CHARISMA.BBS" End If 10465 If s4513 = "" Then s4513 = "TEAMLIST.BBS" End If 10491 If s4517 = "" Then s4517 = "ELITE.BBS" End If 10517 If s4521 = "" Then s4521 = "CLASSES.BBS" End If 10543 Print s5892; "@0D@SCORE LISTINGS SETUP" Print Print s5892; "@0D@1@07@] Scores Directory :@0F@ "; s4497 Print s5892; "@0D@2@07@] City Roster Bulletin:@0F@ "; s4501 Print s5892; "@0D@3@07@] Experienced Listing :@0F@ "; s4505 Print s5892; "@0D@4@07@] Charisma Ratings :@0F@ "; s4509 Print s5892; "@0D@5@07@] Team Listings :@0F@ "; s4513 Print s5892; "@0D@6@07@] Elite Rankings :@0F@ "; s4517 Print s5892; "@0D@7@07@] Mutant Class List :@0F@ "; s4521 Print s5892; "@0D@Q@07@]uit to Main" Print Print s5892; ">@0F@ "; Do 10739 s5884 = UCase(InKey(1213417543)) Loop Until InStr("1234567Q", s5884) > 0 Print s5884 Delay 0.1 Print s65512 = s5884 If s65512 = "1" Then Print s5892; "@07@Enter the drive and directory for your score listings." Print s5892; "@0D@(Example: C:\MUTANTS\SCORES)" Print Print s5892; "] "; Input s4497 If s4497 = "" Then s4497 = ProgPath + "SCORES" End If 10902 If s4497 <> "" Then Print s5892; "Do you want to make this directory now? "; Do 10934 s5884 = UCase(InKey(1213417543)) Loop Until InStr("YN", s5884) > 0 If s5884 = "Y" Then MkDir s4497 s4497 = s4497 + "\" Print Print s5892; "@07@The game will now start keeping your score files in this directory." End If 11026 If s5884 = "N" Then s4497 = s4497 + "\" Print Print s5892; "@07@Make sure you create this directory." End If End If 11075 Sub20010 Else 11087 If s65512 = "2" Then Print s5892; "@07@City Roster Bulletin:@0D@ "; Input s4501 If s4501 = "" Then s4501 = "ROSTER.BBS" End If 11151 Else 11157 If s65512 = "3" Then Print s5892; "@07@Experienced Listing: "; Input s4505 If s4505 = "" Then s4505 = "EXPERT.BBS" End If 11221 Else 11227 If s65512 = "4" Then Print s5892; "@07@Charisma Ratings: "; Input s4509 If s4509 = "" Then s4509 = "CHARISMA.BBS" End If 11291 Else 11297 If s65512 = "5" Then Print s5892; "@07@Team Listings: "; Input s4513 If s4513 = "" Then s4513 = "TEAMLIST.BBS" End If 11361 Else 11367 If s65512 = "6" Then Print s5892; "@07@Elite Rankings: "; Input s4517 If s4517 = "" Then s4517 = "ELITE.BBS" End If 11431 Else 11437 If s65512 = "7" Then Print "@07@Class Listing: "; Input s4521 If s4521 = "" Then s4521 = "CLASSES.BBS" End If 11495 Else 11501 If s65512 = "Q" Then GoTo 11536 GoTo 11530 End If End If End If End If End If End If End If End If 11530 Loop 11536 Else 11542 If s65520 = "E" Then Print "@07@Name of person allowed to use game editor: "; Input s5808 If s5808 = "" Then s5808 = MakeWild.SysopName End If 11605 Else 11611 If s65520 = "F" Then If o5813 = 0 Then o5813 = - 1 Else 11657 o5813 = 0 End If 11663 Else 11669 If s65520 = "Q" Then Sub2492 Sub19818 b5901 = 1 GoTo 11711 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If 11711 Loop While b5901 = 0 b5901 = 0 Else 11737 If s65532 = "I" Then Cls Print Print s5892; "@07@This proceedure will setup some additional directories and files." Print s5892; "The directories will be added on to "; ProgPath; "." Print Print s5892; "Is this the directory you plan to use? (@0F@Y@07@/@0F@N@07@)@0F@ "; Do 11818 s5884 = UCase(InKey(1213417543)) Loop Until InStr("YN", s5884) > 0 Print s5884 Delay 0.1 Print If s5884 = "Y" Then Print Print s5892; "@07@Installing...please wait." MkDir ProgPath + "disp" MkDir ProgPath + "mail" MkDir ProgPath + "scores" CopyFile(ProgPath + "\disp.zip", ProgPath + "\disp\disp.zip") Shell "pkunzip disp", ProgPath + "\disp" Kill ProgPath + "\disp\disp.zip" Print Print Print s5892; "@05@Installation is complete." Print Sub20010 Else 12033 Print Print s5892; "Unzip the MUTANTS archive into a directory you plan to use and" Print s5892; "then try running this installation from that directory." Print Sub20010 End If 12073 Else 12079 If s65532 = "N" Then t28_4525.b126 = t28_4525.b125 t28_4525.b247 = 0 t28_4525.b127 = b5800 t28_4525.b229 = 0 t28_4525.b128 = b5799 t28_4525.b256 = 0 t28_4525.s129 = "N" t28_4525.b248 = 0 t28_4525.b223 = 0 t28_4525.b229 = 0 t28_4525.b224 = 0 t28_4525.b250 = 0 t28_4525.b225 = 0 t28_4525.b249 = 0 t28_4525.b226 = 0 t28_4525.b248 = 0 t28_4525.b234 = 0 t28_4525.b221 = 0 t28_4525.b222 = 0 t28_4525.b237 = 0 t28_4525.b239 = 0 t28_4525.o241 = 0 t28_4525.b228 = 0 t28_4525.s233 = "H" t28_4525.b243 = 0 t28_4525.b244 = 0 t28_4525.b245 = 0 t28_4525.o246 = 0 t28_4525.b231 = t28_4525.b232 Else 12427 If s65532 = "O" Then Cls Print Print Print s5892; "This option will reset players as OFFLINE. Use this feature" Print s5892; "when people are shown online in the game when they actually are" Print s5892; "not playing." Print Print s5892; "Use this option when no one is in the game. Continuing while" Print s5892; "players are currently in the game may have adverse effects." Print Print s5892; "Continue? [Y/N] "; Do 12545 s5884 = UCase(InKey(1213417543)) Loop Until InStr("YN", s5884) > 0 Print s5884 Delay 0.1 Print If s5884 = "Y" Then Print Print Print Print s5892; "Resetting online flag for all players..." Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression 12687 For i5908 = 1 To LOF(1) Step 1 Seek 1, i5908 Get 1, i5908, t27_4871 '! 346 bytes t27_4871.b246 = 0 Put 1, i5908, t27_4871 '! 346 bytes Next 12812 Close 1 Print Print Print s5892; "Operation complete." Sub20010 End If 12842 Else 12848 If s65532 = "Q" Then Cls b5901 = 1 GoTo 12881 End If End If End If End If End If End If End If End If End If 12881 Loop While b5901 = 0 12895 End Sub '! Called 3 times Sub Sub12922 Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression Seek 1, i5908 i5910 = Loc(1) i5912 = LOF(1) Get 1, i5908, t28_4525 '! 346 bytes Close 1 End Sub '! Called 2 times Sub Sub13011 Dim l65488 As Long Dim i65492 As Integer Dim l65494 As Long Dim i65498 As Integer Dim s65500 As String '! Temporary Dim s65504 As String '! Temporary Dim s65508 As String '! Temporary Dim s65512 As String '! Temporary Dim s65516 As String '! Temporary Dim s65520 As String '! Temporary Dim s65524 As String Dim s65528 As String Dim s65532 As String If s5884 = "E" Then Else 13043 i5908 = 1 Sub12922 Do 13056 Cls Print "@0D@ 0.@07@ Real Name: @0F@"; t28_4525.s0; Tab(36); "@07@ID #:@0F@ "; t28_4525.s48 Print Print "@0D@ 1.@07@ Mutant Name:@0F@ "; t28_4525.s30; Tab(36); "@0D@19.@07@ Last Played :@0F@ "; t28_4525.b258; "@07@ Day(s) Ago" Print "@0D@ 2.@07@ Gender :@0F@ "; t28_4525.s55; Tab(36); "@0D@20.@07@ On Now :@0F@ "; t28_4525.o246 Print "@0D@ 3.@07@ Currency :@0F@ "; t28_4525.l98; Tab(36); "@0D@21.@07@ Player Fights :@0F@ "; t28_4525.b127 Print "@0D@ 4.@07@ Credit Acct:@0F@ "; t28_4525.l102; Tab(36); "@0D@22.@07@ Street Fights :@0F@ "; t28_4525.b128 Print "@0D@ 5.@07@ Experience :@0F@ "; t28_4525.l51; Tab(36); "@0D@23.@07@ Player Dead :@0F@ "; t28_4525.s129 Print "@0D@ 6.@07@ Intellect :@0F@ "; t28_4525.i56; Tab(36); "@0D@24.@07@ Hunger Level :@0F@ "; t28_4525.b256 Print "@0D@ 7.@07@ Health :@0F@ "; t28_4525.i94; Tab(36); "@0D@25.@07@ Obstacle Event :@0F@ "; t28_4525.b259 Print "@0D@ 8.@07@ Max Health :@0F@ "; t28_4525.i96; Tab(36); "@0D@26.@07@ Completed Games :@0F@ "; t28_4525.b230 Print "@0D@ 9.@07@ Charisma :@0F@ "; t28_4525.i58; Tab(36); "@0D@27.@07@ Flag Settings" Print "@0D@10.@07@ Strength :@0F@ "; t28_4525.i60; Tab(36); "@0D@28.@07@ Skill Turns Left:@0F@ "; t28_4525.b231 Print "@0D@11.@07@ Level :@0F@ "; t28_4525.b106; Tab(36); "@0D@29.@07@ Max Skill Turns :@0F@ "; t28_4525.b232 Print "@0D@12.@07@ Mut. Power :@0F@ "; t28_4525.s110; Tab(36); "@0D@30.@07@ Inventory Items" Print "@0D@13.@07@ Max MP Turn:@0F@ "; t28_4525.b125; Tab(36); "@0D@31.@07@ Edit Skills" Print "@0D@14.@07@ MP Left :@0F@ "; t28_4525.b126; Tab(36); "@07@Team ID:@0F@ "; t28_4525.b190 Print "@0D@15.@07@ Alignment :@0F@ "; t28_4525.i107; Tab(36); "@07@Team Name :@0F@ "; t28_4525.s191 Print Print Print s5892; "@0F@F@07@orward @0F@B@07@ackward @0F@S@07@earch Alias @0F@R@07@eal Name Search" Print s5892; "@0F@E@07@xit @0F@N@07@ew Day @0F@D@07@elete Player" Print "> "; Input s5884 s5884 = UCase(s5884) s65532 = s5884 If s65532 = "0" Then s5992 = t28_4525.s0 Print "Enter player's REAL name: "; Input t28_4525.s0 If t28_4525.s0 = "" Then t28_4525.s0 = s5992 End If 13918 Else 13924 If s65532 = "1" Then s5992 = t28_4525.s30 Print "Enter New Alias Name: "; Input t28_4525.s30 If t28_4525.s30 = "" Then t28_4525.s30 = s5992 End If 14013 Else 14019 If s65532 = "2" Then If UCase(t28_4525.s55) = "M" Then t28_4525.s55 = "F" Else 14083 If UCase(t28_4525.s55) = "F" Then t28_4525.s55 = "M" End If End If 14124 Else 14130 If s65532 = "3" Then Print "New Amount of Credits on Hand: "; Input t28_4525.l98 Else 14173 If s65532 = "4" Then Print "New Amount of Credits in RTM: "; Input t28_4525.l102 Else 14216 If s65532 = "5" Then Print "New Amount of Experience: "; Input t28_4525.l51 Else 14259 If s65532 = "6" Then Print "New Intelligence Level: "; Input t28_4525.i56 Else 14302 If s65532 = "7" Then Print "New Health units: "; Input t28_4525.i94 If t28_4525.i94 > t28_4525.i96 Then t28_4525.i94 = t28_4525.i96 End If 14383 Else 14389 If s65532 = "8" Then Print "New Maximum Health units: "; Input t28_4525.i96 t28_4525.i94 = t28_4525.i96 Else 14450 If s65532 = "9" Then Print "New Charisma Rating: "; Input t28_4525.i58 Else 14493 If s65532 = "10" Then Print "New Amount of Strength: "; Input t28_4525.i60 Else 14536 If s65532 = "11" Then Print "Current Level (1 to 15): "; Input t28_4525.b106 Else 14579 If s65532 = "12" Then Cls Print Print s5892; "@0D@1.@07@ Optic Blast" Print s5892; "@0D@2.@07@ Super Strength/Flying" Print s5892; "@0D@3.@07@ Fire Power" Print s5892; "@0D@4.@07@ Psychic Powers" Print s5892; "@0D@5.@07@ Elemental Powers" Print s5892; "@0D@6.@07@ Shape Shifter" Print s5892; "@0D@7.@07@ Energy Waves" Print s5892; "@0D@8.@07@ Cold Power" Print Print s5892; "> "; Do 14738 s5884 = UCase(InKey(1213417543)) Loop Until InStr("12345678", s5884) > 0 t28_4525.b109 = Val(s5884) If t28_4525.b109 = 1 Then t28_4525.s110 = "Optic Blast" Else 14830 If t28_4525.b109 = 2 Then t28_4525.s110 = "Strength/Flying" Else 14870 If t28_4525.b109 = 3 Then t28_4525.s110 = "Cold Power" Else 14910 If t28_4525.b109 = 4 Then t28_4525.s110 = "Psychic" Else 14950 If t28_4525.b109 = 5 Then t28_4525.s110 = "Elemental" Else 14990 If t28_4525.b109 = 6 Then t28_4525.s110 = "Shape Shifter" Else 15030 If t28_4525.b109 = 7 Then t28_4525.s110 = "Energy Waves" Else 15070 If t28_4525.b109 = 8 Then t28_4525.s110 = "Cold Power" End If End If End If End If End If End If End If End If 15104 Else 15110 If s65532 = "13" Then Print s5892; "Maximum # of Mutant Power Turns: "; Input t28_4525.b125 If t28_4525.b125 < 0 Then t28_4525.b125 = 2 End If 15182 Else 15188 If s65532 = "14" Then Print s5892; "Number of Mutant Power Turns Left: "; Input t28_4525.b126 If t28_4525.b126 > t28_4525.b125 Then t28_4525.b126 = t28_4525.b125 Else 15281 If t28_4525.b126 < 0 Then t28_4525.b126 = t28_4525.b125 End If End If 15317 Else 15323 If s65532 = "15" Then Print s5892; "Enter # for GOOD or -# for EVIL alignment: "; Input t28_4525.i107 Else 15372 If s65532 = "19" Then Print s5892; "Player last played how many days ago: "; Input t28_4525.b258 Else 15422 If s65532 = "20" Then If t28_4525.o246 = 0 Then t28_4525.o246 = - 1 Else 15476 t28_4525.o246 = 0 End If 15486 Else 15492 If s65532 = "21" Then Print "Number of Player Fights left: "; Input t28_4525.b127 If t28_4525.b127 > b5800 Then t28_4525.b127 = b5800 End If 15565 Else 15571 If s65532 = "22" Then Print "Number of Street Fights left: "; Input t28_4525.b128 If t28_4525.b128 > b5799 Then t28_4525.b128 = b5799 End If 15644 Else 15650 If s65532 = "23" Then If UCase(t28_4525.s129) = "Y" Then t28_4525.s129 = "N" t28_4525.i94 = t28_4525.i96 Else 15732 If UCase(t28_4525.s129) = "N" Then t28_4525.s129 = "Y" End If End If 15773 Else 15779 If s65532 = "24" Then Print s5892; "Enter hunger level of player:"; Input t28_4525.b256 Else 15829 If s65532 = "25" Then Print s5892; "Make which obstacle event the current one (1 - 5): "; Input t28_4525.b259 Else 15879 If s65532 = "26" Then Print s5892; "Number of games player has completed: "; Input t28_4525.b230 Else 15928 If s65532 = "27" Then Do 15945 Cls MorePrompt(0) Print Print s5892; "@0D@FLAG SETTINGS" Print Print s5892; "@07@[@0F@1@07@] Already On:@0F@ "; t28_4525.o241 Print s5892; "@07@[@0F@2@07@] In HQ :@0F@ "; t28_4525.o242 Print s5892; "@07@[@0F@3@07@] In Hotel :@0F@ "; t28_4525.o253 Print s5892; "@07@[@0F@Q@07@] Quit" Print Print s5892; "> "; Do 16082 s5884 = UCase(InKey(1213417543)) Loop Until InStr("123Q", s5884) > 0 Print s5884 Delay 0.1 Print s65528 = s5884 If s65528 = "1" Then If t28_4525.o241 = 0 Then t28_4525.o241 = - 1 Else 16198 t28_4525.o241 = 0 End If 16208 Else 16214 If s65528 = "2" Then If t28_4525.o242 = 0 Then t28_4525.o242 = - 1 If t28_4525.o242 = - 1 And t28_4525.o253 = - 1 Then t28_4525.o242 = 0 End If 16310 Else 16316 t28_4525.o242 = 0 End If 16326 Else 16332 If s65528 = "3" Then If t28_4525.o253 = 0 Then t28_4525.o253 = - 1 Dec b5867 If t28_4525.o253 = - 1 And t28_4525.o242 = - 1 Then t28_4525.o253 = 0 Inc b5867 End If 16440 Else 16446 t28_4525.o253 = 0 Inc b5867 End If 16462 Sub2492 Else 16474 If s65528 = "Q" Then GoTo 16509 GoTo 16503 End If End If End If End If 16503 Loop 16509 Else 16515 If s65532 = "28" Then Print s5892; "Number of Extra Skills Turns Left: "; Input t28_4525.b231 If t28_4525.b231 > t28_4525.b232 Then t28_4525.b231 = 0 End If 16594 Else 16600 If s65532 = "29" Then Print s5892; "Maximum Number of Extra Skills: "; Input t28_4525.b232 Else 16649 If s65532 = "30" Then Do 16666 Cls Print Print s5892; "@0F@INVENTORY ITEMS" Print Print Print s5892; "@07@[@0D@A@07@] Proton Packs :@0F@ "; t28_4525.t29_310.i0 Print s5892; "@07@[@0D@B@07@] Nitro Packs :@0F@ "; t28_4525.t29_310.i2 Print s5892; "@07@[@0D@C@07@] Rocks :@0F@ "; t28_4525.t29_310.i4 Print s5892; "@07@[@0D@D@07@] Control Cards:@0F@ "; t28_4525.t29_310.i6 Print s5892; "@07@[@0D@1@07@] Own Coat :@0F@ "; t28_4525.o255 Print s5892; "@07@[@0D@2@07@] Own ComLink :@0F@ "; t28_4525.o235 Print s5892; "@07@[@0D@3@07@] MedKit I :@0F@ "; t28_4525.b257 Print s5892; "@07@[@0D@4@07@] MedKit II :@0F@ "; t28_4525.b306 Print Print s5892; "@0F@Q@07@uit" Do 16933 s5884 = UCase(InKey(1213417543)) Loop Until InStr("ABCD1234Q", s5884) > 0 Print s5884 Delay 0.1 Print Print s65524 = s5884 If s65524 = "Q" Then GoTo 17337 Else 17026 If s65524 = "1" Then If t28_4525.o255 = 0 Then t28_4525.o255 = - 1 Else 17080 t28_4525.o255 = 0 End If 17090 Else 17096 If s65524 = "2" Then If t28_4525.o235 = - 1 Then t28_4525.o235 = 0 Else 17150 t28_4525.o235 = - 1 End If 17163 Else 17169 If s65524 = "3" Then Print s5892; "Amount of Medical Kits I (5-Pack): "; Input t28_4525.b257 If t28_4525.b257 > 250 Then t28_4525.b257 = 0 End If 17244 Else 17250 If s65524 = "4" Then Print s5892; "Amount of Medical Kits II (10-Pack): "; Input t28_4525.b306 If t28_4525.b306 > 250 Then t28_4525.b306 = 0 End If 17325 GoTo 17331 End If End If End If End If End If 17331 Loop 17337 Else 17343 If s65532 = "31" Then Do 17360 Cls Print Print s5892; "@0F@EDIT EXTRA SKILLS" Print Print s5892; "@0D@1.@07@ "; t28_4525.s130 Print s5892; "@0D@2.@07@ "; t28_4525.s150 Print s5892; "@0D@3.@07@ "; t28_4525.s170 Print Print s5892; "@0F@Q@07@uit" Print s5892; "> "; Do 17495 s5888 = UCase(InKey(1213417543)) Loop Until InStr("123Q", s5888) > 0 Print s5888 Delay 0.1 Print Print If s5888 = "Q" Then GoTo 18059 End If 17574 Print s5892; "@0D@1.@07@ Invisibility" Print s5892; "@0D@2.@07@ Speed" Print s5892; "@0D@3.@07@ Teleport" Print s5892; "@0D@4.@07@ Mega-Size" Print s5892; "@0D@5.@07@ Energy Shield" Print s5892; "@0D@6.@07@ Absorption" Print Print s5892; "> "; Do 17681 s5884 = UCase(InKey(1213417543)) Loop Until InStr("123456", s5884) > 0 Print s5884 Delay 0.1 Print If s5884 = "1" Then Func20409(("Invisibility"), s5888) Else 17789 If s5884 = "2" Then Func20409(("Speed"), s5888) Else 17843 If s5884 = "3" Then Func20409(("Teleport"), s5888) Else 17897 If s5884 = "4" Then Func20409(("Mega-Size"), s5888) Else 17951 If s5884 = "5" Then Func20409(("Energy Shield"), s5888) Else 18005 If s5884 = "6" Then Func20409(("Absorption"), s5888) End If End If End If End If End If End If 18053 Loop 18059 Else 18065 If s65532 = "F" Then Sub19441 i5908 = i5908 + 1 If i5908 > i5912 Then i5908 = i5908 - 1 End If 18134 Sub12922 Else 18146 If s65532 = "B" Then Sub19441 i5908 = i5908 - 1 If i5908 < 1 Then i5908 = 1 End If 18205 Sub12922 Else 18217 If s65532 = "N" Then t28_4525.b127 = b5800 t28_4525.b128 = b5799 t28_4525.i94 = t28_4525.i96 t28_4525.b126 = t28_4525.b125 t28_4525.s129 = "N" t28_4525.b221 = 0 t28_4525.b222 = 0 t28_4525.b223 = 0 t28_4525.b224 = 0 t28_4525.b225 = 0 t28_4525.b226 = 0 t28_4525.b227 = 0 t28_4525.b234 = 0 t28_4525.b237 = 0 t28_4525.b238 = 0 t28_4525.b239 = 0 t28_4525.b248 = 0 t28_4525.o241 = 0 t28_4525.b228 = 0 t28_4525.s233 = "H" t28_4525.b250 = 0 t28_4525.o242 = 0 t28_4525.b243 = 0 t28_4525.b244 = 0 t28_4525.b245 = 0 t28_4525.o246 = 0 t28_4525.b256 = 0 t28_4525.b229 = 0 t28_4525.o253 = 0 t28_4525.b231 = t28_4525.b232 t28_4525.b247 = 0 t28_4525.b249 = 0 Sub19441 Else 18609 If s65532 = "S" Then Sub19441 Print "Enter PLAYERNAME to search for: "; Input s5914 Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression 18697 For i5908 = 1 To LOF(1) Step 1 Get 1, i5908, t28_4525 '! 346 bytes If UCase(s5914) = UCase(t28_4525.s30) Then i5910 = i5908 GoTo 18830 End If 18807 Next 18830 Close 1 If UCase(s5914) <> UCase(t28_4525.s30) Then Print "@0C@That player could not be found." Delay 1.5 i5908 = 1 End If 18887 Else 18893 If s65532 = "R" Then Sub19441 Print "Enter REAL NAME of player to search for: "; Input s5918 Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression i5908 = 1 18988 For i5908 = 1 To LOF(1) Step 1 Get 1, i5908, t28_4525 '! 346 bytes If UCase(s5918) = UCase(t28_4525.s0) Then i5910 = i5908 GoTo 19117 End If 19094 Next 19117 Close 1 If UCase(s5918) <> UCase(t28_4525.s0) Then Print s5892; "That caller could not be found." Delay 1.5 i5908 = 1 End If 19176 Else 19182 If s65532 = "D" Then Print s5892; "@0C@DELETE THIS PLAYER FROM THE GAME? (Y/N) "; Do 19214 s5884 = UCase(InKey(1213417543)) Loop Until InStr("YN", s5884) > 0 Print s5884 Delay 0.1 Print If s5884 = "Y" Then t28_4525.s0 = "DELETED" t28_4525.s30 = "DELETED" Sub19441 Print Print s5892; "@07@The player has been deleted. Make sure to use the Team Editor" Print s5892; "and delete this player from any team that he/she may have joined." Sub20010 End If 19355 Else 19361 If s65532 = "E" Then Sub19441 GoTo 19402 GoTo 19396 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If 19396 Loop End If 19402 End Sub '! Called 7 times Sub Sub19441 Open ProgPath + "players.dat" For Random As 1 Len = 346 '! This value should probably be replaced with a "SizeOf" expression Put 1, i5910, t28_4525 '! 346 bytes Close 1 End Sub '! Called 2 times Sub Sub19500 If Exists(ProgPath + "mutants.cfg") = -1 Then Open ProgPath + "mutants.cfg" For Input As 3 Input #3, s5795 Input #3, b5799 Input #3, b5800 Input #3, i5801 Input #3, b5803 Input #3, s5804 Input #3, s5808 Input #3, b5812 Input #3, s4497 Input #3, s4501 Input #3, s4505 Input #3, s4509 Input #3, s4513 Input #3, s4517 Input #3, s4521 Close 3 Else 19679 s5795 = "000000" b5799 = 15 b5800 = 3 i5801 = 2500 b5803 = 15 s5804 = "Scott Bradbury" s5808 = MakeWild.SysopName b5812 = 15 s4497 = s4497 s4501 = "ROSTER.BBS" s4505 = "EXPERT.BBS" s4509 = "CHARISMA.BBS" s4513 = "TEAMLIST.BBS" s4517 = "ELITE.BBS" s4521 = "CLASSES.BBS" o5813 = 0 End If 19815 End Sub '! Called 1 time Sub Sub19818 Open ProgPath + "mutants.cfg" For Output As 3 Print #3, s5795 Print #3, b5799 Print #3, b5800 Print #3, i5801 Print #3, b5803 Print #3, s5804 Print #3, s5808 Print #3, b5812 Print #3, s4497 Print #3, s4501 Print #3, s4505 Print #3, s4509 Print #3, s4513 Print #3, s4517 Print #3, s4521 Print #3, o5813 Close 3 End Sub '! Called 11 times Sub Sub20010 Dim b65535 As Byte Print Print Tab(1); "@08@-Any Key-"; 20038 Do While InKey(1213417543) = "" Loop 20065 b65535 = CsrLin Locate b65535, 1 ClrEOL End Sub '! Called 1 time Function Func20089(s65534 As String) As String If s65534 = "0" Then s5862 = "Extremely Cold" Else 20132 If s65534 = "1" Then s5862 = "Cold" Else 20166 If s65534 = "2" Then s5862 = "Cool and Mild" Else 20200 If s65534 = "3" Then s5862 = "Windy" Else 20234 If s65534 = "4" Then s5862 = "Rain and Thunderstorms" Else 20268 If s65534 = "5" Then s5862 = "Mild" Else 20302 If s65534 = "6" Then s5862 = "Sunny & Clear" Else 20336 If s65534 = "7" Then s5862 = "Hot" Else 20370 If s65534 = "8" Then s5862 = "Hot and Humid" End If End If End If End If End If End If End If End If End If 20398 End Function '! Called 6 times Function Func20409(s65534 As String, s65532 As String) As Boolean If s65532 = "1" Then t28_4525.s130 = s65534 Else 20459 If s65532 = "2" Then t28_4525.s150 = s65534 Else 20500 If s65532 = "3" Then t28_4525.s170 = s65534 End If End If End If 20535 End Function '! Called 1 time Sub Sub20543 Open ProgPath + "teamfile.dat" For Random As 1 Len = 163 '! This value should probably be replaced with a "SizeOf" expression Get 1, b5907, t26_5398 '! 163 bytes Close 1 End Sub '! Called 13 times Sub Sub20600 Open ProgPath + "teamfile.dat" For Random As 1 Len = 163 '! This value should probably be replaced with a "SizeOf" expression Put 1, b5907, t26_5398 '! 163 bytes Close 1 End Sub